﻿Imports System

Namespace System.Workflow.ComponentModel.Design
    <AttributeUsage(AttributeTargets.Class)> _
    Public NotInheritable Class ActivityDesignerThemeAttribute
        Inherits Attribute
        ' Methods
        Public Sub New(ByVal designerThemeType As Type)
            Me.designerThemeType = designerThemeType
        End Sub


        ' Properties
        Public ReadOnly Property DesignerThemeType As Type
            Get
                Return Me.designerThemeType
            End Get
        End Property

        Public Property Xml As String
            Get
                Return Me.xml
            End Get
            Set(ByVal value As String)
                Me.xml = value
            End Set
        End Property


        ' Fields
        Private designerThemeType As Type
        Private xml As String = String.Empty
    End Class
End Namespace

